%% Assignment 5.4
close all; clearvars; clc;

%% 5.4 Macro porosity
% Given are lab results of dry bulk density of small samples (100 cm3) 
% without macropores and a 4 litre volume sample with macropores. Determine 
% the percentage macro porosity using the bulk density method. Note to 
% correct for the stones/gravel!

rho_quartz  = 2.65;                         % [g/cm3]

V_large     = 4000;                         % [cm3]
M_large     = 5334.51;                      % [g]
rho_large   = M_large/V_large;              % [g/cm3]

V_small     = 100;                          % [cm3]
M_small     = mean([147.3,152.69,150.41]);  % [g]
rho_small   = M_small/V_small;              % [g/cm3]

p_micro     = 1-rho_small/rho_quartz;       % [-]
disp(p_micro);
p_macro     = 1-rho_large/rho_small;        % [-]
disp(p_macro);

